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-- File: DebugCache .Mesa 
-- Last edited by 

Johnsson; August 29, 1978 9:46 AM 

DIRECTORY 

AllocDefs: FROM "allocdefs" USING [MakeSwappedln , SwappingProcedure] , 

AltoDefs: FROM "altodefs" USING [PageSize], 

AltoFileDefs: FROM "altof 11 edef s M USING [fillinDA, vDA], 

BFSDefs: FROM "bfsdefs" USING [ActOnPages, GetNextDA], 

ControlDefs: FROM "controldef s M USING [ControlLink] , 

CoreSwapDef s: FROM "coreswapdef s" , 

DebugData: FROM "debugdata" USING [altoXM, debugPilot, mdsContext, onDO], 

DebugCacheDefs: FROM "debugcachedef s" USING [ 
InitMapSeg, LookupMapEntry , NewPi1ot31Segment , 
ReleaseMap, WritePilot31Page] , 

DebuggerDefs: FROM "debuggerdefs" USING [LA], 

DebugMiscDef s : FROM "debugmiscdef s" , 

DebugUsef ulDefs : FROM "debugusef uldef s" , 

DebugUtilityDefs: FROM "debugutil itydef s" , 

DebugXMDefs: FROM "debugxmdef s" USING [XMRead, XMWrite], 

DiskDefs: FROM "diskdefs" USING [DiskRequest] , 

ImageDefs: FROM "imagedef s" , 

InlineDefs: FROM " in! inedef s" USING [COPY, LongDivMod, LongMult], 

Mopcodes: FROM "mopcodes" USING [zMISC, zRBL, zWBL], 

SegmentDefs: FROM "segmentders" USING [ 

DefaultBase, DeleteFileSegment , FileHandle, FileSegmentAddress, 
FileSegmentHandle, GetFileSegmentDA, InsertFile, LockFile, 
NewFileSegment , Read, SetFileSegmentDA, Swapln, Unlock, Write], 

SystemDefs: FROM "systemdef s M USING [AllocatePages , FreePages], 

VMMapLog: FROM "vmmaplog" USING [Entry, PilotFID]; 

DebugCache: PROGRAM 

IMPORTS AllocDefs, BFSDefs, DebugCacheDefs, DDptr: DebugData, 

DebugXMDefs, SystemDefs, SegmentDefs 
EXPORTS DebugCacheDefs, DebugMiscDef s , DebugUsefulDef s, DebugUtilityDefs 
SHARES DiskDefs, SegmentDefs * 

BEGIN 

-- move this to a utility somewhere 

Bound: PUBLIC PROCEDURE [p: UNSPECIFIED] RETURNS [BOOLEAN] ■ 
BEGIN 

RETURN[L00PH0LE[p, ControlDefs .Control Link] . tag n unbound] 
END; 

LA: TYPE = DebuggerDefs . LA; 

PageSize: CARDINAL = Al toDefs .PageSize; 

LAMult: PROCEDURE [CARDINAL, CARDINAL] RETURNS [LA] - 
LOOPHOLE[InlineDefs. LongMult]; 

— DO/Pilot Stuff 

MapFlags: TYPE = MACHINE DEPENDENT RECORD [ 
LogSE, W, D, Ref: BOOLEAN]; 

VacantFlags: MapFlags - [FALSE, TRUE, TRUE, FALSE]; 
CleanFlags: MapFlags = [FALSE, FALSE, FALSE, FALSE]; 

MapEntry: TYPE ■ MACHINE DEPENDENT RECORD [ 
flags: MapFlags, 
realPage: [0..7777B]]; 

Vacant: MapEntry » [VacantFlags, 0]; 
Clean: MapEntry « [CleanFlags , 0] ; 

MapSwapBase: CARDINAL - 16384-256; 

SETF: PROCEDURE [CARDINAL, MapEntry] RETURNS [MapEntry] « 
MACHINE CODE BEGIN Mopcodes . zMISC , 1 END; 

RBL: PROCEDURE [LA] RETURNS [UNSPECIFIED] ■ 
MACHINE CODE BEGIN Mopcodes . zRBL, END; 



DebugCache.mesa 2-Sep-78 15:32:14 Page 



WBL: PROCEDURE [UNSPECIFIED, LA] ■ 

MACHINE CODE BEGIN Mopcodes . zWBL, END; 

-- Cache of user memory pages 

CoreSegmentObject: TYPE ■ RECORD [ 
address: POINTER, 
lastused: CARDINAL, 
mempage: CARDINAL,^ 
inuse: BOOLEAN, 
dirty: BOOLEAN, 
body: 

SELECT type: * FROM 
alto => [ 

segment: SegmentDef s. FileSegmentHandle], 
pilot31 => [ 
vda: CARDINAL, 
fid: VMMapLog.PilotFID, 
filepage: CARDINAL], 
ENDCASE]; 

CoreSegment: TYPE » POINTER TO CoreSegmentObject; 

maxsegments: CARDINAL ■ 8; -- number of pages to keep in core 

CS: ARRAY [0 . .maxsegments) OF CoreSegmentObject; 

CurrentUseValue: CARDINAL; 

CoreFile: SegmentDef s. FileHandle; 

DAs: ARRAY [-1..256] OF AltoFi 1 eDef s . vDA; 

DiskAddresses: DESCRIPTOR FOR ARRAY OF AltoFi leDefs . vDA <- 

DESCRIPTOR[@DAs[0],256]; 
InitCoreCache: PROCEDURE [file: SegmentDef s . FileHandle] ■ 

BEGIN 

i: CARDINAL; 

CurrentUseValue «- 0; 

FOR i IN [0. .maxsegments) DO CS[i], inuse «- FALSE ENDLOOP; 

CoreFile <- file; 

SegmentDef s .LockFile[CoreFile]; 

END; 



FlushCoreCache: PUBLIC AllocDefs .SwappingProcedure * 
BEGIN OPEN SegmentDef s; 
did: BOOLEAN ♦- FALSE; 
i: CARDINAL ♦- 0; 
cs: CoreSegment; 

CacheSwap.proc ♦- AllocDefs .CantSwap; 
FOR i IN [0. .maxsegments) DO 
cs<-@CS[i]; 
IF cs. inuse THEN 
BEGIN 

FlushCS[cs]; 
did «- TRUE; 
END; 
ENDLOOP; 
CurrentUseValue<-0; 
RETURN[did] 
END; 



FlushCS: PROCEDURE [cs: CoreSegment] - 
BEGIN OPEN SegmentDef s; 
WITH cs SELECT FROM 
alto -> 
BEGIN 

IF dirty THEN segment .write «- TRUE; 
Unlock[segment]; 
Del eteFileSegment[ segment]; 
END; 
pilot31 -> 
BEGIN 
IF dirty THEN 

DebugCacheDef s .Wri tePilot31Page[adclress , vda, fid, filepage]; 
SystemDef s . FreePages[ address] ; 
END; 
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ENDCASE; 
cs.inuse «~ FALSE; 
END; 

NewSwateeSegment: PROCEDURE [mempage: CARDINAL, cs: CoreSegment] ■ 
BEGIN OPEN SegmentDefs; 
filepage: CARDINAL ■ SELECT mempage FROM 

IN[2..253] B > mempage, 1 => 254, ENDCASE -> 255; 
seg: FileSegmentHandle ■ NewFileSegment[CoreFile, filepage, 1, Read]; 
SetFileSegmentDA[seg, DiskAddresses[f ilepage]] ; 
AllocDefs . MakeSwappedIn[seg , Default Base, 

[0, hard, bo ttomup, initial .other , TRUE , FALSE]] ; 
DiskAddresses[f ilepage] <- GetFileSegmentDA[seg]; 
est «- [ 

address: FileSegmentAddress[seg] , 

inuse: TRUE, 

dirty: FALSE, 

lastused: , 

mempage: mempage, 

body: alto[seg]]; 
RETURN 
END; 

NonExistentMemoryPage: PUBLIC SIGNAL [page: CARDINAL] = CODE; 
InvalidAddress: PUBLIC SIGNAL [a: LA] - CODE; 

NewVMSegment: PROCEDURE [mempage: CARDINAL, cs: CoreSegment] « 
BEGIN ENABLE UNWIND ■ > DebugCacheDef s . Rel easeMap[] ; 

entry: POINTER TO VMMapLog . Entry = DebugCacheDef s . LookupMapEntry[mempage] ; 
offset: CARDINAL; 

IF entry - NIL THEN GOTO notThere; 
offset *- mempage-entry .page; 

BEGIN ENABLE UNWIND ■> DebugCacheDef s . Rel easeMap[] ; 
WITH e:entry SELECT FROM 
alto31 = > 

BEGIN OPEN SegmentDefs; 
seg: FileSegmentHandle * NewFileSegment[ 
InsertFile[LOOPHOLE[@e.fp],Read+Write], 
e.f ilePage+offset, 1, Read]; 
cs.body «- alto[seg]; 
Swapln[seg]; 

cs. address ♦• FileSegmentAddress[seg]; 
END; 
pilot31 => 
BEGIN 

cs.body <- pilot31[ 
vda: e. vda+off set, 
fid: e.fid, 

filepage: e.f ilePage+offset]; 
cs. address «- DebugCacheDef s .NewPilot31Segment[ 

e. vda+off set, e.fid, e.f ilePage+offset]; 
END; 
ENDCASE ■> GOTO notThere; 
END; -- ELBANE 

DebugCacheDef s .ReleaseMap[] ; 
cs. mempage «- mempage; 
cs , inuse ♦- TRUE; 
cs. dirty <- FALSE; 
EXITS notThere -> 
BEGIN 

DebugCacheDefs.ReleaseMap[]; 
ERROR NonExistentMemoryPage[mempage] ; 
END; 
END; 

GetCS: PROCEDURE [mempage: CARDINAL] RETURNS [sp: CoreSegment] - 
BEGIN 

minUseVal: CARDINAL <- CurrentUseValue; 
minUselndex: CARDINAL ♦- 0; 
i: CARDINAL; 

BEGIN 

FOR i IN [0. .maxsegments) DO 
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sp «- 0CS[i]; 

IF ~sp.inuse THEN GO TO newseg; 
IF sp.mempage ■ mempage THEN EXIT; 
IF sp.lastused < minUseVal THEN 

BEGIN minUseVal<-sp . lastused ; minUselndexH END; 
REPEAT FINISHED «> 
BEGIN 
FOR i IN [0. .maxsegments) DO 

CS[i]. lastused ♦- CS[i] . lastused - minUseVal; 
ENDLOOP; 
CurrentUseValue «- CurrentUseValue - minUseVal; 
FlushCS[sp «- ®CS[minUseIndex]]; 
GO TO newseg; 
END 
ENDLOOP; 
EXITS newseg a > 
BEGIN 

cso: CoreSegmentObject; 

IF mempage IN [0..253] THEN NewSwateeSegment[mempage, @cso] 
ELSE NewVMSegment[mempage, Qcso]; 
FOR i IN [0. .maxsegments) DO 
sp <- @CS[i]; 

IF -sp.inuse THEN BEGIN spt <- cso; EXIT END; 
REPEAT FINISHED -> ERROR 
ENDLOOP; 
END; 
END; 
sp.lastused <- CurrentUseValue «- CurrentUseVal ue+1; 

CacheSwap.proc <~ FlushCoreCache; 
RETURN[sp]; 
END; 

LongREAD: PUBLIC PROCEDURE [a: LONG POINTER] RETURNS [UNSPECIFIED] - 
BEGIN 

mempage, offset: CARDINAL; 

[mempage, offset] «- In! ineDef s.LongDivMod[LOOPHOLE[a] .PageSize] ; 
DO 

IF mempage > 255 THEN 
BEGIN 

real: BOOLEAN; 

[real, mempage] «- RealMemory[mempage]; 
IF real THEN RETURN[ReadVM[mempage, offset]]; 
EXIT; 
END 
ELSE 
BEGIN 

IF DDptr.debugPilot AND DDptr.onDO THEN 
BEGIN 

mempage *■ RemapLowPage[mempage]; 
IF mempage > 255 THEN LOOP; 
END; 
IF mempage > 253 THEN RETURN[MEMORY[mempage*PageSize+of f set]]; 
EXIT; 
END; 
ENDLOOP; 
RETURN [(GetCS[mempage]. address + offset)t]; 
END; 

LongWriteCommon: PROCEDURE [a: LONG POINTER, v: UNSPECIFIED, setdbit: BOOLEAN] 
BEGIN 

mempage, offset: CARDINAL; 
s: CoreSegment; 

[mempage, offset] <- In! ineDef s . LongDivMod[LOOPHOLE[a] , PageSize] ; 
IF DDptr.debugPilot AND DDptr.onDO AND setdbit THEN SetDirty[mempage] ; 
DO 

IF mempage > 255 THEN 

BEGIN 

real: BOOLEAN; 

[real, mempage] «- RealMemory[mempage]; 

IF real THEN BEGIN WriteVM[mempage, offset, v]; RETURN END; 

EXIT; 

END 
ELSE 

BEGIN 

IF DDptr.debugPilot AND DDptr.onDO THEN 
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BEGIN 

mempage «- RemapLowPage[mempago]; 
IF mempage > 255 THEN LOOP; 
END; 
IF mempage > 253 THEN 

BEGIN MEMORY[mempage*PageSize+offset] «- v; RETURN END; 
EXIT; 
END; 
ENDLOOP; 
((s*-GetCS[mempage]) .address + offset)^ *- v; 
s. dirty <- TRUE; 
RETURN 
END; 

LongWRITE: PUBLIC PROCEDURE [a: LONG POINTER, v: UNSPECIFIED] - 
BEGIN 

LongWriteCommon[a, v, TRUE]; 
RETURN 
END; 

LongWRITEClean: PUBLIC PROCEDURE [a: LONG POINTER, v: UNSPECIFIED] - 
BEGIN 

LongWriteCommon[a, v, FALSE]; 
RETURN 
END; 

RemapLowPage: PROCEDURE [mempage: CARDINAL] RETURNS [CARDINAL] ■ 
BEGIN 

m: MapEntry = ReadMap[MapSwapBase+mempage]; 
rp: CARDINAL = m.realPage; 
vp: CARDINAL; 

IF m. flags - VacantFlags THEN RETURN[MapSwapBase+mempage] 
ELSE IF ReadMap[mempage] .m. realPage = rp THEN RErURN[mempage]; 
FOR vp IN [0. .253] DO 

IF ReadMap[vp]. m.realPage = rp THEN RETURN[vp]; 
ENDLOOP; 
RETURN[MapSwapBase+mempage] ; 
END; 

AREAD, MREAD, SREAD: PUBLIC PROCEDURE [a: UNSPECIFIED] RETURNS [UNSPECIFIED] 
BEGIN 

mds: LA = LAMul t[DDptr .mdsContext, PageSize]; 
RETURN[LongREAD[mds.lp+CARDINAL[a]]] 
END; 

AWRITE, MWRITE, SWRITE: PUBLIC PROCEDURE [a: UNSPECIFIED, v: UNSPECIFIED] = 
BEGIN 

mds: LA « LAMul t[DDptr .mdsContext , PageSize]; 
LongWRITE[mds. lp+CARDINAL[a], v]; 
RETURN 
END; 

RealMemory: PROCEDURE [mempage: CARDINAL] RETURNS [BOOLEAN, CARDINAL] ■ 
BEGIN 
IF DDptr.onDO THEN 

BEGIN 

flags: MapFlags; 

rp, vp: CARDINAL; 

[flags, rp] <- ReadMap[mempage].m; 

IF flags « VacantFlags THEN RETURN[FALSE, mempage]; 

FOR vp IN [0. .253] DO 

IF ReadMap[vp]. m.realPage - rp THEN RETURN[FALSE, vp]; 
ENDLOOP; 

RETURN[TRUE, mempage] 

END; 
IF DDptr.altoXM THEN RETURN[mempage < 1024, mempage]; 
ERROR NonEx istentMemoryPage[mempage] ; 
END; 

Swappedln: PUBLIC PROCEDURE [mempage: CARDINAL] RETURNS [BOOLEAN] ■ 
BEGIN 

IF -DDptr.onDO THEN RETURN[FALSE] ; 

IF mempage <= 255 IHLH mempage «- mempage + MapSwapBase; 
RETURN[ReadMap[mempage] ,m. flags # VacantFlags] 
END; 
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ReadVM: PROCEDURE [mempage, offset: CARDINAL] RETURNS [UNSPECIFIED] ■ 
BEGIN 

p: LA ■ [LP[LAMul t[mempage,PageSize].lp+offset]]; 
IF DDptr.onDO THEN RFTURN[RBL[p]] ; 
IF DDptr.altoXM AND Bound[DebugXMDef s . XMRead] THEN 

RETURN[DebugXMDefs.XMRead[LOOPHOLE[p]]]; 
ERROR InvalidAddress[p]; 
END; 

WriteVM: PROCEDURE [mempage, offset: CARDINAL, v: UNSPECIFIED] - 
BEGIN 

p: LA = [LP[LAMult[mempage,PageSize].lp+of fset]]; 
IF DDptr.onDO THEN 

BEGIN 

oldm: MapEntry <- SETF[mempage f Vacant]; 

[] <- SETF[mempage, Clean]; 

WBL[v, p]; 

oldm. flags. Ref <- TRUE; 

IF ~oldm.f lags .W THEN oldm. flags. D <- TRUE; -- wait for hardware change 

[] <- SETF[mempage, oldm]; 

RETURN 

END; 
IF DDptr.altoXM AND Bound[DebugXMDef s .XMWri te] THEN 

BEGIN DebugXMDefs.XMWrite[LOOPHOLE[p], v]; RETURN END; 
ERROR InvalidAddress[p]; 
END; 

ReadMap: PROCEDURE [mempage: CARDINAL] RETURNS [m: MapEntry] ■ 
BEGIN 

m <- SETF[mempage, Clean]; 
[] <- SETF[mempage, m] ; 
RETURN 
END; 

SetDirty: PROCEDURE [mempage: CARDINAL] » 
BEGIN 

m: MapEntry; 

IF mempage < a 255 THEN mempage «- mempage + MapSwapBase; 
m <- SETF[mempage, Clean]; 
m. flags. D <- m. flags. Ref *- TRUE; 
m. flags. W «- FALSE; -- wait for hardware change 
[] <- SETF[mempage, m] ; 
RETURN 
END; 



-- initialization 

InitializeDebuggerFiles: PUBLIC PROCEDURE [debuggee: SegmentDefs .FileHandle] 
BEGIN OPEN AltoFileDefs, DiskDefs, SegmentDefs; 
p: POINTER; 

diskrequest: DiskRequest; 
diskrequest <- DiskRequest [ 

ca: SystemDef s . AllocatePages[l] , 

fixedCA: TRUE, 

da: @DiskAddresses[0], 

fp: ©debuggee. fp, 

firstPage: 0, 

lastPage: 255, 

action: ReadD, 

lastAction: ReadD, 

signalCheckError : FALSE, 

option: update[BFSDefs .GetNextDA]]; 
p <r LOOPHOLE[@DiskAddresses[0]-l]; 
pt <- fill inDA; 

InlineDefs.COPY[from: p, to: p+1 , nwords: 257]; 
DiskAddresses[0] *- debuggee. f p. leaderDA; 
[] <- BFSDefs.ActOnPages[LOOPHOLE[@diskrequest]]; 
SystemDef s .FreePages[diskrequest.ca]; 
DebugCacheDef s . Ini tMapSeg [debug gee]; 
In itCoi'eCache[ debuggee]; 
END; 
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END... 



